home *** CD-ROM | disk | FTP | other *** search
/ Gekikoh Dennoh Club 5 / Gekikoh Dennoh Club Vol. 5 (Japan).7z / Gekikoh Dennoh Club Vol. 5 (Japan) (Track 01).bin / games / kenka / kenka2s.lzh / jui_m.has < prev    next >
Encoding:
Text File  |  1998-08-20  |  4.8 KB  |  240 lines
  1. *---------------------------------------
  2. *
  3. *    âWâàâCê┌ô«
  4. *
  5. *    by Shiroh Nakaya
  6. *
  7. *---------------------------------------
  8.  
  9.     .cpu    68000
  10.  
  11.     .include    OSU.H
  12.  
  13.     .xdef    jui_init
  14.     .xref    pcg_data
  15.     .xref    pal_data
  16.     .xref    adpcm_data
  17.  
  18.     .text
  19.     .even
  20. *---------------------------------------
  21. *    âWâàâCÅëè·ë╗
  22. *
  23. jui_init:
  24.     move.w    #6,C_H_X(a1)
  25.     move.w    #24,C_H_Y(a1)
  26.     move.w    #12,C_HD_X(a1)
  27.     move.w    #44,C_HD_Y(a1)
  28.     move.w    #40,C_MD_X1(a1)
  29.     move.w    #248,C_MD_X2(a1)
  30.     move.w    #40,C_MD_Y1(a1)
  31.     move.w    #248,C_MD_Y2(a1)
  32.     move.w    #7,C_SA_F(a1)
  33.     move.w    #7,C_SSA_F(a1)
  34.     move.l    #jui_motion,C_A_DT(a1)
  35.     move.l    #jui_display,C_PCG_D(a1)
  36.     move.l    #jui_move_data,C_JOY(a1)
  37.     move.l    #jui_attack_data,C_HIT_D(a1)
  38.     move.l    #jui_se_data,C_PCM_D(a1)
  39.  
  40.     move.w    #$0000,BG_CTRL            * âXâvâëâCâgò\Īénéeée
  41.     lea.l    pcg_data,a4
  42.     adda.l    #JUI,a4
  43.  
  44.     movea.l    a2,a6
  45.     move.w    #2624-1,d1
  46. @@:
  47.     move.l    (a4)+,(a2)+
  48.     dbra    d1,@b
  49.     adda.l    #15744,a6
  50.     move.w    #160-1,d1
  51. @@:
  52.     move.l    (a4)+,(a6)+
  53.     dbra    d1,@b
  54.  
  55.     move.w    C_COL(a1),d1
  56.     add.w    d1,d1
  57.     add.w    d1,d1
  58.     lea.l    jui_palette,a4
  59.     movea.l    0(a4,d1.w),a4
  60.     move.w    #8-1,d1
  61. @@:
  62.     move.l    (a4)+,(a3)+
  63.     dbra    d1,@b
  64.  
  65.     move.w    #$0200,BG_CTRL            * âXâvâëâCâgò\Īéném
  66.     rts
  67.  
  68. *---------------------------------------
  69. *    âWâàâCò\Ī
  70. *
  71. jui_display:
  72.     move.w    C_M_F(a1),d0
  73.     add.w    d0,d0
  74.     move.w    display_tbl(pc,d0.w),d0
  75.     jmp    display_tbl(pc,d0.w)
  76. *---------------------------------------
  77.     .even
  78. display_tbl:
  79.     .dc.w    jui_move-display_tbl,jui_attack-display_tbl
  80.     .dc.w    jui_hit-display_tbl,jui_win-display_tbl,jui_g-display_tbl
  81.     .dc.w    0,0
  82.     .dc.w    jui_attack-display_tbl
  83. *---------------------------------------
  84. jui_move:
  85.     move.w    C_CNT(a1),d0
  86.     add.w    d0,d0
  87.  
  88.     tst.w    C_LR_F(a1)
  89.     bne    @f
  90.     move.w    move_tbl_right(pc,d0.w),d0
  91.     jmp    move_tbl_right(pc,d0.w)
  92. @@:
  93.     move.w    move_tbl_left(pc,d0.w),d0
  94.     jmp    move_tbl_left(pc,d0.w)
  95. *---------------------------------------
  96.     .even
  97. move_tbl_left:
  98.     .dc.w    jui_n-move_tbl_left,jui_for-move_tbl_left
  99.     .dc.w    jui_back-move_tbl_left
  100. move_tbl_right:
  101.     .dc.w    jui_n-move_tbl_right,jui_back-move_tbl_right
  102.     .dc.w    jui_for-move_tbl_right
  103. *---------------------------------------
  104. jui_attack:
  105.     move.w    C_AK_F(a1),d0
  106.     add.w    d0,d0
  107.     move.w    d0,d1
  108.     add.w    d0,d0
  109.     add.w    d1,d0
  110.     move.w    C_AM_F(a1),d1
  111.     add.w    d1,d1
  112.     add.w    d1,d0
  113.     move.w    attack_tbl(pc,d0.w),d0
  114.     jmp    attack_tbl(pc,d0.w)
  115. *---------------------------------------
  116.     .even
  117. attack_tbl:
  118.     .dc.w    low_s-attack_tbl,low_a-attack_tbl,low_t-attack_tbl
  119.     .dc.w    mid_s-attack_tbl,mid_a-attack_tbl,mid_t-attack_tbl
  120.     .dc.w    high_s-attack_tbl,high_a-attack_tbl,high_t-attack_tbl
  121.     .dc.w    jui_sa_s-attack_tbl,jui_sa_a-attack_tbl,0
  122.     .dc.w    jui_ssa_s-attack_tbl,jui_ssa_a-attack_tbl,0
  123. *---------------------------------------
  124.     .include    jui_n.inc
  125. *---------------------------------------
  126.     .include    jui_am.inc
  127. *---------------------------------------
  128.     .include    jui_al.inc
  129. *---------------------------------------
  130.     .include    jui_ah.inc
  131. *---------------------------------------
  132.     .include    jui_h.inc
  133. *---------------------------------------
  134.     .include    jui_w.inc
  135. *---------------------------------------
  136.     .include    jui_g.inc
  137. *---------------------------------------
  138.     .include    jui_sa.inc
  139. *---------------------------------------
  140.     .include    jui_ssa.inc
  141. *---------------------------------------
  142. jui_motion:
  143.     .dc.w    3,6,10
  144.     .dc.w    7,4,20
  145.     .dc.w    30,8,25
  146.     .dc.w    5,40,0
  147.     .dc.w    20,40,0
  148. jui_attack_data:
  149.     .dc.w    16,-16,8,8,16,16,2,$0300,1,10
  150.     .dc.w    12,0,4,24,8,48,8,$0300,1,15
  151.     .dc.w    24,-8,14,14,28,28,25,$0300,2,20
  152.     .dc.w    16,0,8,8,16,16,25,$0300,1,20
  153.     .dc.w    16,0,8,16,16,32,80,$0300,1,40
  154. jui_move_data:
  155.     .dc.w     0, 0
  156.     .dc.w     0,-3
  157.     .dc.w     0, 3
  158.     .dc.w     0, 0
  159.     .dc.w    -3, 0
  160.     .dc.w    -3,-3
  161.     .dc.w    -3, 3
  162.     .dc.w     0, 0
  163.     .dc.w     3, 0
  164.     .dc.w     3,-3
  165.     .dc.w     3, 3
  166. jui_se_data:
  167.     .dc.l    0                * ÄπìUîéÄnô«é`écéoébél
  168.     .dc.l    0
  169.     .dc.w    0
  170.     .dc.l    0                * ÆåìUîéÄnô«é`écéoébél
  171.     .dc.l    0
  172.     .dc.w    0
  173.     .dc.l    adpcm_data+JUI01
  174.     .dc.w    $f908
  175.     .dc.w    1740
  176.     .dc.w    0
  177.     .dc.l    adpcm_data+JUI04
  178.     .dc.w    $f908
  179.     .dc.w    574
  180.     .dc.w    1
  181.     .dc.l    adpcm_data+JUI04
  182.     .dc.w    $f908
  183.     .dc.w    574
  184.     .dc.w    1
  185.  
  186.     .dc.l    adpcm_data+BOH
  187.     .dc.w    $f908
  188.     .dc.w    496
  189.     .dc.w    0
  190.     .dc.l    adpcm_data+BOH
  191.     .dc.w    $f904
  192.     .dc.w    496
  193.     .dc.w    0
  194.     .dc.l    adpcm_data+BOH
  195.     .dc.w    $f900
  196.     .dc.w    496
  197.     .dc.w    1
  198.     .dc.l    adpcm_data+BOH
  199.     .dc.w    $f900
  200.     .dc.w    496
  201.     .dc.w    1
  202.     .dc.l    adpcm_data+BOH
  203.     .dc.w    $f900
  204.     .dc.w    496
  205.     .dc.w    1
  206.  
  207.     .dc.l    adpcm_data+BOKAN
  208.     .dc.w    $f908
  209.     .dc.w    1014
  210.     .dc.w    2
  211.     .dc.l    adpcm_data+BOKAN
  212.     .dc.w    $f904
  213.     .dc.w    1014
  214.     .dc.w    2
  215.     .dc.l    adpcm_data+BOKAN
  216.     .dc.w    $f900
  217.     .dc.w    1014
  218.     .dc.w    3
  219.     .dc.l    adpcm_data+BOKAN
  220.     .dc.w    $f900
  221.     .dc.w    1014
  222.     .dc.w    3
  223.     .dc.l    adpcm_data+BOKAN
  224.     .dc.w    $f900
  225.     .dc.w    1014
  226.     .dc.w    3
  227.  
  228.     .dc.l    adpcm_data+JUI02        * éjéné`écéoébél
  229.     .dc.w    $f908
  230.     .dc.w    3192
  231.     .dc.w    4
  232.  
  233.     .dc.l    adpcm_data+JUI03        * Åƒé┐é`écéoébél
  234.     .dc.w    1272
  235.  
  236. jui_palette:
  237.     .dc.l    pal_data+JUI_C,pal_data+JUI_C+32
  238. *---------------------------------------
  239.     .end
  240.